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Nose to the grindstone again. You surly are tyrants. 

First a correction. I listed DISKMAG as Drysdale Av. It actually is 
Dugdale Av. but Jason advises that he prefers to use his P.O.Box 600. 
Taree. NSW. 2430. 


I also missed out last issue, advising you that the longest running 
Newsletter, and one of the first, has ceased operation. This was John 
D'Alton and LE'VZ 200K300 OOPS. we all regret this closure, as we are 
getting thin on the ground. 


Now some good news for HACKERS. DSE had a few VZ300s with various 
faults. Yes even VZeds have faults. I have bought the lot. So any hacker 
that wants a 300 to operate on, send me $20, and you have bought yourself a 
bargain(?). Even if you don't restore them, you will learn a lot and the 
keyboards are a direct replacement for the VZ200 keyboard. John told me 
recently, that he has only just switched from the 200to 300. 

There are still some VZ articles available. Joysticks and both 200 and 
300 expan. memories; disk drives at $99; controllers at 639.95; Wordproc 
cartridges; and printer interfaces. Some oddments of game tapes. The 
printer interface is a good buy at $9.95, for any hacker that has ideas of 
controlling from the VZ. You get the case with it's connector, a bit of 
cable and a centronics plug. That is about the limit of what is available. 
Anyone wanting the extended basic or dos eproms, get in touch with Joe 
Leon, at HVVZUG. Address under Other Clubs. 


Anyone looking for a cheap printer, should consider the Brother M1109, 
now selling at $250. I used one for years, and had good service from it. 
It is still in use. 


POSTAGE. We are glad to lend our library tapes out,and let you have 
access to the back issues, but you must send postage. Some do and some 
don't. «In the future, if you don't receive an expected tape, consider if 
you have sent postage. It is becoming a big item, and is going to become 
bigger in a month or two. 


In issue 23 I printed a method of rescuring a lost file. I used that to 
retrive a club list of over 190 members. with their records. I got 186 of 
them. This month, we publish a similar function for tape users, sent to us 
by Michael Maconald. Thanks Michael. 

Also another program from Peter Ross. It is endlessly expandable,and 
very well thought out. Quite an accomplishment for his age. All the 
basework is there. 

And for those that plug printer /joystick in/out and finish up with 
loose connections, there is a hardware article for you too. 
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HOW TO RESCUE DOOMED PROGRAMS 


By Michael MacDonald 


Tape users were no doubt envious, when they read the article on 
using the DISK EDITOR to rescue a "lost" program from disk. 


Now Michael has sent us a proceedure to rescue a program from 
TAPE. 


Good Fishing! (ed) 


Ever had one of those days where nothing seems to work and the 
program you saved only yesterday seems to have fallen into the black 
hole for lost programs? And after spending the rest of the day being 
totally infuriated by not being able to reload your program. 

Every time you try you are plagued with the same old result, 


“LOADING ERROR" 


By now you're so angry you give up and start to type it all in 
again! But STOP! There's no need to do that. 
You can rescue that doomed listing. HERE'S HOW! 


(i) First, load up the program (don't worry about the loading 
error) just ignore it. 


(ii) Now, list the program. If the program lists fully (or 
nearly) without throwing a mental attach all is not lost. This may 
have happened before. It is quite amazing how a program loads in, 
lists but when run throws a tantrum, flashed crazily or just locks up. 


(iii) Now type in this command 
PRINT PEEK(30884) ; PEEK (30885) 


This will print out the LSB (least significant Byte) and MSB 
(most significant Byte) values present in the Start of Basic program 
pointers. The values will give you the address at which your program 
starts; ө.4 the computer printed out 233 122. This means 
122*256+233-31465 is the start of your program. 


(iv) Now if you type in 
PRINT PEEK(30969) ;PEEK(30970) 


This will print out the values present in the END of BASIC 
Program Pointers and will tell you the address of the end of the 
program using the same technique above to find the address. 


(v) But, you'll notice that this value is not very much greater 
than the Start of Basic pointer. What has happened is that the 
computer has read most of the data of the program but something has 
stopped the computer reading the last pieces of information which 
containd the values for the end of the program address. 


It may now seem easy to fix the problem, just replace the 
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missing values into the pointers. But it's not. First you have to 
find the values of where your program ends. This is quite a laborious 


task. 


Type in 


FOR I-(start of basic) TO (approx. guess) :PRINT 
CHR$ (PEEK (I) ) ; : NEXT 

When you execute this the screen will be filled with lots of 
strange characters and mumbo jumbo but occasionally ypu'll see and 
recognise a string of text out of your program. When the search 
passes the “program you'll know because there'll be less junk on the 


screen or it will have passed text near the end of the program. As 
soon as this happens, BREAK the execution and find the value of <<I>>. 


PRINT 1 
This will show the address where your program roughly ends. 
(vi) Now you must find the LSB and MSB values. 
First type in 
PRINT INT(I/256) 
This gives you the MSB. 
PRINT I - (MSB*256) 
And this gives you the LSB. 
(vii) Now POKE the values into memory. 


РОКЕ 30969,LSB: - POKE 30970,MSB 


Hey Presto! your program may be rescued!! 


Caution :- If your program contains various machine code routines 
it may not work or even if it does'nt your program still may not do so 
cross your fingers and hope it does. 


The next step BEFORE running it is to list it and fix up any 
errors found in the listing that may have crept in. Then quickly save 
it. Now type RUN and your worries may be over. | 


Alternatively if a program is saved over a chewed section of tape 
the portion before the chewed bit can be rescued by BREAKing before 
the LOADING ERROR and doing the same process as above. 


I hope this article has brought you back from the depths of 
despair and has got you programming again. 
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AROUND THE WÜRLD 


BY PETER ROSS 


5 GOTO 5160 

10 COLOR4, O:CLS:sPRINT: PRINT” PETER RO 
55 АМ) THE" 

20 PRINT:PRINT* 


$0 PRINT" x. pp. e—— 

40 PRINT" A A ІТ ШІШЕЕ 

50 PRINT" НЕ ҒАНИ БЕ ШЕВ 

50 PRINT” ETE ll a a 

70 PRINT“ ERAN 

80 PRINT:PRINT" PERSONAL COLQUR COMPUTE 
R 

90 PRINT:PRINT" PRESENTS 


95 FORX=1T03000: NEXT: GOTOLSO 
130 CLS:PRINT 

140 COLORS: PRINT: PRINT: PRINT 
150 PRINT" 
140 PRINT" Fo aT End 
170 PRINT" 1-1. иии IN d ud 


180 FRINT" Lid e oe 
190 ERINT" — ———— 
. 200 PRINT" Lm rt ы 

210 PRINT* IPMIBI"JEBI 

220 PRINT" Led iin 


230 PRINT" 
235 FORZ=-1T03000: NEXT: GOTOSSO 

270 COLOR3: MODE (1) : A=-1 

271 COLOR2: SET (56,15): SET (57, 15) : SET (58, 15 
) ¿SET (39,15) 

272 COLOR2:SET (60,15): SET (61,13): SET (62,13 
):SET (63,15) 

273 COLOR2:SET (44,15): SET (65,15): SET (66,15 
) ¿SET (67, 15) 

274 ЅЕТ (28,15) : ЅЕТ (49, 15) : ЅЕТ (70, 15) : ЅЕТ (7 
1, 15) z COLORS 

280 A=A+1:SET (A, 63) 3s IFA=127 THENGOTO300 

290 GOTO 280 

300 А=0: В=45: С=1:р=42 

310 A=4+2: B=B-1:C=C+2:2D=D-1: SET(C,D): SET (A 
„B)s IFA=S4THENGOTO 330 

520 65070510 

330 A=127:B=43:C=126:D=42 

340 A=A-23 B=B-1:0=C-2: D=D-1: SET(C, D) 3 SETA 
,»B) 2 IFA=73THENGOTO360 

550 GOTO 340 

340 COLOR2: A=14:B=15:C=0 

370 С-С%1:АлА%3:ВаВ%5:5ЕТ(А,54):5ЕТ (В, 356): 
IFC=32THENGOTO 390 

380 КЕ5ЕТ(112,34):060Т0 370 

290 С010К4:А-128:В-127 

400 B=B-1:SET(B, 43) : SET (B-1, 463) : SET (B-2,63 
»: SET (B-3, 62) 

410 SET(B-4, 61) 3 SET (B-4, 60) s SET (B-4, 59) 3 SE 


420 SET (B-4,56) :SET (B-3, 55) s SET (B-2, 54) : SE 
T(B-1,53) 2 SET (B-1, 52) 

430 SET(B-1,51) : SET(B-1, 50) : SET (B, 49) : KESE 
T(B-2, 42) 

440 RESET (B-3, 62) RESET (B~3, 61): RESET (B-3, 
60) s RESET (B-3, 59) 

450 RESET (B-3, 58) s RESET (B-3, 57) : RESET (B-2, 
S6) RESET (B-1, 55) 

440 RESET (B,53) sRESET (B, 52) : RESET (B, 51) : RE 
SET (B, 50) : SET(B, 63) 

470 SET(B-2,62) sSET(B-2, 63) s RESET (B-1,54) : 
IFB=4THENGOTO 531 

490 GOTO 400 

00 °СО 062: 5ЕТ (56,15) : ЕТ (57,15) : ЕТ (58, 1 
5) :ЕТ (59,15) 

510 *COLOR2:SET (60,15) :SET (61,15) sSET (62, 1 
5) :SET (43, 15) 

520 *COLOR2:SET (44, 15) z SET (65, 15) : SET (66,1 
5) :SET (47,15) 

530 'SET(68,15) SET (59, 152 : SET (70, 15) : SET ( 
71,15) 

531 IFUR=STHENSOUND31, 1: COFY 

532 FORI=1T01000: NEXT 

540 GOSUB 550 

545 GOSUB 850 

550 COLOR3: MODE (1) SET (20, 20) sSET(21,20):S 
ET (22, 20) : SET (23, 20) 

560 SET (24, 20) :SET (25,21) : SET (25, 22) : SET (2 
6,23) SET (26, 24) 

570 SET (27, 25) SET (27, 26) sSET (19, 21) sSET (1 
9,22) sSET (19, 23) 

580 SET (19, 24) :SET (19, 25) sSET(19, 26) sSET (1 
9,27) :SET (19, 28) 

590 SET(19, 29) sSET (20, 30) s SET (21, 31) SET (2 
2,32) :SET (23,32): 

600 SET (24, 32) :SET (25,32) sSET (26, 32) :SET(2 
7,532) : SET (28, 27) 

610 SET(28,32) : SET(29, 27) z SET (29, 532? : SET (3 
0,27) : SET (30,32) 

620 SET (31,27) :SET(31, 32) : SET(32, 27) : SET (3 
2, 52) sSET (33, 27) 

430 SET(33,32) sSET (34, 27) 3 SET (34, 322 18ET (3 
5,27): SET (35, 32) 

440 ЗЕТ (34,27) :5ЕТ (36,32): SET (37,32) SET (3 
7,27) SET (38, 32) 

650 SET (38, 27) :SET (39, 27) s SET (39, 32) s SET (4 
0,32) : SET (40, 27) 

660 SET (41, 27) :SET (41, 52) s SET (41, 35) s SET (4 
0,33) :SET(39, 34) 

670 SET (38, 35): SET (37, 36) s SET (34, 37) SET (3 
5, 58) : SET (34, 39) 

480 SET(33,40) :SET (32, 41) :SET (31,42) : BET(S 
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&90 SET (354,42): : SET (55,42) sSET (36,42) :SET (S 

7,42) :SET (38, 42) 

700 SET (359,41) : SET (40,40): SET(41,59) :SET (4 

2,38) :SET (43, 57) 

710 SET (44,36) sSET (45,35) s SET (44, 34) : SET (4 

7,55): SET (48, 32) 

720 SET(48,335) : SET (49,32): ee АЗ SET (S 

1, 32) :SET (52, 32) 

750 GET (53, 32) : SET (54, 52) SET (55, 51) : SET (5 

6,31): SET (57,30) 

740 SET (37,29): 2 SET (56, 28) sSET(SS, 27) sSET CS 

4,27): SET (53, 27) 

750 SET (52,27): SET (31,27): SET (30, 27): SET (4 

9,27): SET (48, 27) 

760 SET (47, 27) : SET (46, 27) : SET (45, 27) : SET (4 

4,27) :SET (43,27) е 

779 SET (42,27): SET (45,26) 8 SET (446, 25) : SET (4 
7,24) 2 SET (48, 25) 

789 SET(49,22): SET (50, 21) z SET (51, 20) 3 SET (5 
2,19) :SET (51,18) 

790 SET(S53,18):SET (54,18): SET (595,18) : SET (5 

6.18) : ЅЕТ (57, 18) 

800 SET (52,18): SET (58,19) 3 SET(S7, 20) sSET(S 

6,21): SET (55, 22) 

810 SET(54,23) : SET (93,24) : ЗЕТ (52,25): ЅЕТ (9 
1,26): SET (30,27) 

820 SET (28, 29) : SET (32, 29) s SET (36, 29) s SET (4 

0,29) :SET (44, 29) 

850 SET (48,29) : SET (52, 29) s SET (54,29): 

831 A$=INKEY$:A$=INKEY$ 

852 IFA$-"A"THENGOTO2910 

823 IFA$="V" THENGOTO8S0 

834 IFA$="I" THENGOTO1470 

840 IFA$="B" THENGOTO1700 

841 IFA$-"C"THENGOTO2140 

942 IFA$="F" THENGOTO1300 

845 IFA$-"G"THENGOTO1110 

844 IFA$="T"THENGOTO2600 

847 IFAS="F"THENGOTO270 

848 05070851 , 

850 MODE (1) 

840 A=0 

870 A=A+1:SET (A, 63): IFA=127THENGOTOBYO 

880 GOTO87O 

890 A=63 

900 A-A-1:SET(20,0) sSET (100, 0 : IFAZSOTHENG 

OTO 920 

910 065070900 

920 A=20:B=30:C=100: 

930 A=A+2:B=B-1: C=C-2 

A=60THENGOTO 950 

940 GOTO 930 

950 A=10 

960 A=A-1:SET (59, A) SET (60, A) SET (41, A) 8 IF 

A=O0THENGOTO980 

970 6070960 

980 A=54 

990 A-A*1:SET(A, 4) SET (A, 5) s IFA=45THENGOTO 
1010 


30 
SET (4, B) :SET(C,B) : IF 


1000 6070990 

1010 SET(61,10):SET (59,10) :A=38:B=50: 

1020 A=44 

1030 A=A-1:SET(50,A) sSET(70, A) s IFA=4STHENG 
ОТО 1050 

1040 650701050 

1050 SET(51,44) sSET (49, 44): SET (52, 45) s SET ( 
68,43): SET (53,42) 

1040 5ЕТ(07,42):5ЕТ(54,41):5ЕТ(66,41): SET ( 
55,40): 

1070 SET (56,40) :SET (57,40) :SET(58,40):5ETK 
59,40) : ЅЕТ (60, 40) 

1080 ЕТ (61, 40): SET (62, 40) zSET (63,40) :SET( 
64,40): SET (45, 40) 

1081 IFURZSTHENSQUNDZ1,1: COFY 

1090 FORI-1TO4000: NEXT 

1100 60506550 

1110 COLOR4: MODE (1): A=-1 

1120 A=A+1:SET(45,A):SET(46,4):SET(65,A):5 
ET (66,4) 

1130 IFA=49THENGOTO1150 

1140 GOTO1120 

1150 A=44 

1170 A=A+1:SET(A,2):SET(A,3):SET(A,13):SET 
(A, 12) 

1180 SET(A,24) : SET(A,23) : SET (6, 59) : SET (A, 4 
0): IFA=45THENGOTO 1200 

1190 GOTO 1170 

1200 A=0:B=63: C=0 

1210 C=C+1:A=4+3: B=B-1: SET (A+1,B):SET(A, E) 
: IFC-18THENGOTO1220 

1215 GOTO 1210 

1220 A=109: B=63:C=0 

1230 C=C+1:A=A-3: B=B~1:SET (A,B) 2 SET (A-1, B) 
: IFCZ-18THENGOTO1230 
1240 60701220 

1250 COLOR2: A=45: B=45 
1260 A=At+1: B=Bt1s SET ¢ 
STHENGOTO 1280 

1270 GOTO 1260 

1280 IFUR=STHENSOUND31, 1: COPY 

1281 FORI-1TO4000: NEXTI 

1290 GOSUB 550 

1300 MODE (1): COLOR2: 4-0 

1510 A=A+1:SET(A, 63) : IFA=127THENGOTO 1330 
1320 GOTO 1310 

1550 A=-0:B=44 

1540 A=A+1:B=B-1:SET(A,B): IFA=63THENGOTO 1 
360 
1350 6 
1540 А 
1570 А 
90 
1380 GOTO 1370 

1390 A=63 

1400 A=A-1:SET(57,A) 2SET(70, A): IFA=SOTHENG 
0701420 

1410 GOTO 1400 

1420 A=56 


С=0 
4, A) : SET (55, B) : IFÁA-6 


a 
ө 
y 


~1:SET(A, B)s IFA=64THENGOTOLS 


1430 A=A+1:SET(A,50):IFA=70THENGOTO 1450 
1440 GOTO 1430 

1450 IFUR=STHENSOUND31,1:COFY 

1451 FORI=1T04000: NEXT 

1460 GOSUESSO 

1470 COLOR4:MODE (1): A=0 

1480 A=A+1:SET(A,63): IFA=127THENGOTO1500 
1490 60701480 
1500 A=40:B=87:C 
1510 A-A*1:B-B-1 
B, C) : IFAS60THEN1 
1520 GOTO 1510 
1550 B-43 

1560 B=B-1: SET (60, B):SET (67, B) s IFB=4 THENGO 
101580 

1570 GOTO 1560 

1580 SET (61,3): SET (46, 3) SET (62, 2): SET (65, 
2):SET (63,1): SET (64, 1) 

1590 SET(63,0) SET (64, 0) 

1600 A=47 

1610 A-A*1:SET(A, 46): IFA-78THENGOTO 1650 
1620 GOTO 1610 

1630 A=50:B=77:C=63:D=0 

1640 A=A+1:B=B-1:C=C-1:D=D+1:SET(A,C):SET( 
B,C): IFD=10THEN1660 

16450 GOTO 1640 

1660 SET (60,53) sSET (61,53) sSET (62,53) sSET( 
63,53) :SET(64, 52) 

1670 SET(65,52):SET(66,53) 

1680 IFUR-STHENSOUND?1, 1: COPY 

1481 FORI=1T04000: NEXT 

1690 GOSUB 55 

1700 COLOR3:MODE (1): A=0 

1710 A=A+1:SET(A,63):SET(A, 40): IFA=127THEN 
60701750 

1720 GOTO 1710 

1750 А-64 

1740 А=А-1:8ЕТ (0, А) : ЕТ (127, А) : ІРА=4ОТНЕМС 
070 1740 

1750 60701740 

1760 A=53 . 

1770 A-A*1:RESET (6,40) : IFA-72THENGOTO1790 
1780 GOTO 1770 

1790 4-40: 

1800 A=A-1:SET(53,A):SET(73,AM): IFA=25THEN1 
820 

1810 GOTO 1800 

1820 A=53 

1830 A=A+1:SET (A, 25) : IFA=73THENGOTO1850 
1840 GOTO 1830 

1850 A=63 

1860 А-А-1:5ЕТ(11,4):5ЕТ(21,4):5ЕТ(51,4):5 
ET(41,A):SET(S1,A) 

1870 SET(117,A):SET(107, A) SET (97, A) sSET(B 
7,5) :SET (77,4) 

1880 IFA-40THENGOTO 1900 

1890 GOTO 1840 

1900 A=0:B=127 

1910 A=A+1:B=B-1:SET(A,51):SET(B,S1)3 1FA=S 


=63:D=0 
¿C=C-1:D=D+1:SET(A, CC): SET ( 
99 


0 


1920 КЕЅЕТ (76,51) :60701910 

1930 RESET (76,51) 

1940 C265: COLOR2 

1950 C-C-1:SET(54,C) :£SET (73, C) : IFC-49THENC 
OTO 1970 

1950 GOTO 1950 

1970 A=54 

1980 A=A+1:SET(A, 49): IFA=73THENGOTO2000 
1990 60701980 

2000 A=43 

2010 A=A-1: SET (63,A):SET (64, A): IFA=49THENG 
0702030 

2020 60702010 

2050 А=25 

2040 АзА-1:5ЕТ(57,А):5ЕТ(58,4):1ҒА-10ТНЕМб 
070 2040 

2050 GOTO 2040 

2060 COLOR4: SET (59,11): SET(60,11)2 SET (61,1 
1):SET (62,11) 

2070 SET (63,11):5ET(64,11):SET(65,11):SET( 
66,11): SET (67,11) 

2090 SET (67,12) : SET (67, 13) zSET (67, 14) c SET( 
67,15): SET (67, 14) 

2100 SET (59,17) sSET (60,17) s SET (61,17) : SET ( 
62,17) :SET (43,17) 

2110 SET (64, 17) :SET (65,17) sSET (66,17) sSET( 
67,17) 

2111 IFUR=STHENSOUND21, 1:COFY 

2120 FORI=1T04000: NEXT 

2130 GOSUE 55 

2140 MODE (1) : COLOR4: A=0 

2150 A=A+1:SET(A,6%): IFA=127THENGOTO 2170 
2160 GOTO 2150 

2170 A=63 

2180 A=A-1: SET (20,A):SET (100, A): IFA=ZOTHEN 
GOTO 2200 

2190 GOTO 2180 

2200 A=20:B=30:C=100: D=30 

2210 A=A+2: B=B~1:C=C-~2: SET (A,B) sSET(C, B) 1 
FA=60THENGOTO2230 

2220 GOTO2210 

2230 A=10 

2240 A-A-1:SET (59,4) :SET(50, A) sSET (51, 5) : I 
FA=OTHENGOTO2260 

2260 SET(101,30):SET(19,30):SET(18, 29) SET 
(102,29) 

2390 SET (103, 29) ?SET (17, 29) z SET (102, 28) SE 
T (18,28) 

2400 SET (18, 27) SET (102, 27) s SET (18, 24) s SET 
(102, 24) 

2410 SET (17,26) sSET (103, 26) s SET (104, 27) 3 SE 
T (16,27) 

2420 А=20 

2450 A-A*1:SET(A, 30) SET (6, 58) : IFA-100THEN 
50702450 

2440 60702450 

2450 SET (30, 32) sSET (31,32): SET (32, 32): SET ( 
33,32): SET (31,37) 

2460 5ЕТ(55,55):6Е7(34,55):5ЕТ(21,54):5ЕТ( 
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2470 5ЕТ(31,55): не» 59) :5ЕТ (51,30) : ЅЕТ‹ 
50,56) di 


2480 5ЕТ(60,32): 5ЕТ (41,55): SET (61,34): SET( 


60, 34): SET (42, 35) 


2490 SET (40, 35) s SET (59, 


36) :SET (61, 36) 


2500 SET(85,32) : SET(84, 32) : SET(85, 33) :SET( 
84, 34) : SET (85, 24) 

2510 ЅЕТ (86, 34): ЅЕТ (85, 55) : ЕТ (84,56) : А=035 
2520 A=A-1: SET(S56, A): SET (70, A): IFA=45THENG 
070 2540 

2530 GOTO 2520 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
660 
2450 
2660 
2670 
0 
2880 
2690 
2700 


МВ-0: 


2710 
2720 
2739 


Ах55 
A=At1:5SET(A,45) : IFA=7OTHENGOTO2S70 
GOTO 2550 ‚ 
IFURZSTHENSOUND:1, 1: COPY 
FORI=1T04000: NEXT 

GOSUBSSO 

COLOR4: MODE (1): A=0 

A=A+1: SET (A, 63): IFA=127THENGOTO 2430 
GOTO 2610 

A=63 
A=A-1:SET(36, A): SET(70, A): IFA=OTHEN 2 


GOTO 2440 
A=56 
A=A+1: SET (A, 0): IFA=70THENB=0:GOTO 269 


GOTO 2670 
A=RND (43) 
RESET (56, A) s SET (57, A) s B=B+1: IFB=10THE 
50702720 
50702690 
A=RND (63) 
RESET (70, A) 2 SET (49, A) s B=Bt1: IFB=10THE 


NGOTO2750 


2740 
2750 


60702720 


SET (40, 2) s SET (41, 2) s SET (42, 2) s SET (43, 


2)3SET (44, 2) 


2760 


SET (45, 2) : SET (66,2 ):tSET (67,3) : SET (59, 


X): SET(59,4): SET(64,9) 


2770 


SET (47, 4) s SET (59, 5) S SET (67, 5) : SET(S9, 


6) : SET (67,6): SET (66,9) 


2780 


SET (61, 4): SET (63, 4): SET (39,7): SET (67, 


7): SET (59,8): SET (67,8) 


2790 


SET (50,9) :zSET (61,9) :SET(62, 9) s SET (43, 


9) :SET(64,9) : SET(695,9) 


2800 


SET (63,10) s SET (63,11) s SET (62,10) s SET¢ 


64,10): SET (42, 11) 


2810 


SET (64,11) SET (61,13) sSET(41, 14): SET ¢ 


65,14): СЕТ (45, 19) 


2820 ЅЕТ (42,20): ЅЕТ (62,21) :5ЕТ (66, 


223) : SET( 


56,23) 

2850 SET (62,33): SET (62,34): SET (45,34) 2 SET ( 
65,595): 20 

2640 А=КМ№ (45) : B=RND (68) 


2850 


IFA«12THENGOTO2840 


2840 IFB<S8THENGOTO2840 
2970 SET(B,A) 
2880 C=C+1: IFC=20THENGOTO2900 


A e 


2890 
2900 
2901 
2705 
2910 
2920 
2950 
2940 
2950 
70 

2960 
2970 


GOTO 2840 | 
IFUR=STHENSOUNDS1, 1: COPY 
FORI=1T03000: NEXT 

50508550 

MODE (1):A=22: COLOR4 

A=A+2: SET(A, 10): IFA=104THENGOTO 2940 
50702920 


SET (A, B): IFA=10THENGOTO29 


GOTO 2950 
А=А+5: В=В-1:С=С+1: SET (A, B) : IFC-4THENG 


ОТО 2990 


2980 
2990 
5000 


5070 2970 
A=127:B=25 


:C=0 
A=A-1: B=B-1 


C= 
¿C=C+1:SET(A, B): IFC=10THEN 


£=0:60T03020 


3010 
3020 
070 

5050 
5040 
5050 
5060 
5070 
3080 
3090 


: ТЕС= 


3105 
2110 
5120 


: IFC= 


3130 
3140 
5141 
5150 
5160 


5170 


GOTO 3000 
A=6-3:B=B-1: C=C+1: SET (A, B) : IFC=4THENG 


3040 


GOTO 3020 

A=0 

A=A+1: SET (A, 25) 3 IFA=127THENGOTO 3070 
GOTO 3050 

COLOR4: 

A=0: B=58: C=0 

C=C+1: A=A+2: B=B-1:SET (A+1, B) s SET (A,B) 
33THENGOTO3110 

GOTO 3090 

A=127: B=58: C=0 

C=C +1: A=A-2: B=B-1: SET (A, B): SET (A-1,B) 
3.3 THENGOTO3140 

GOTO3120 

IFUR=STHENSOUND31, 1: COPY 
FORI=1T04000: NEXT 

GOSUB 550 

CLS=MODE (0) : РКІМТОО, "ВЕЗИ ТОЕТ 


AS=INKEY$: AS=INKEYS 
IFA$="N"THENGOTO3390 
IFA$-"Y"THENGOTO3210 
GOTO 3170 
CLS: PRINT" --X: AROUND THE WORLD: x*- 
FRINT"AROUND THE WORLD IS A GRAFHICIA 


PRINT" TYPE OF GAME WHICH CAN BE USED" 
FRINT"WITH A PRINTER.WHEN YOU SEE THE 


PRINT"JET ON YOUR SCREEN YOU CAN PRES 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
FRINT" 
PRINT" 
FRINT" 
PRINT" 


ETI-NEW ZEALAND" 
LG1-NEW YORK" 
CPI-EGYPT" 
ГС1-СНІМА" 
LB1-LONDON" 
ГІ1-ҒКАМСЕ" 
CVI-ITALY" 
CAJ-AUSTRALIA 


35.540 
3350 
3360 
3370 
5280 
5290 
5400 
5410 
5420 
5450 
5440 
2450 
3460 
3465 
2470 
3480 
3470 


39200 


AROUND THE WORLD ---CONT 


PRINT" LF 1-JAFAN" 
РКІМТ" PRESS CC] TO CONTINUE" 
A$=INKEY$: A$=INKEYS 


IFAS="C" THEN3390 

GOTO 3340 

CLS: MODE (0) : FRINT RER" : FORX=1TO2OO: NEXT 
A$=INKEY$:A$S=INKEY$ i 

IFA$="Y"THENGOTO 3440 

IFA$="N" THENUR=101:G60T010 

GOTO 3400 

CLS:FRINT: PRINT" PRINTER 

PRINT: PRINT' TURN YOUR PRINTER ON NOW. THE 
FRINT"PLACES WILL BE PRINTED OUT ON IT"; : PRINT 
FRINT"MOST FRINTERS WILL NEED A FRINTER PATCH": PRINT 
ЕКІМТ:РКІМТ:РКІМТ:РБІМТ" PRESS CS1] TO START GAME 
A$-INKEY$:A$-INKEYS$ 

IFAS="S"THENUR=5:GOTO10 

GOTO 3480 


THINGS THE V.Z.GETS BLAMED FOR! 


A small extract from a letter:- 
Hhope it does'nt---- 
Does that at times. Stutter after a capital. 
all the V.Zs I have had. 


Has happened on 


Ed comment:- Only thing has'nt changed is the operator. 


Do it m slow motion. Press shift+H. Now let the shift up 
befor tne H. That made it stutter!. Only a case of not letting 
the right hand know what the left is doing. I do it a lot. 


WHY MAKE LIFE DIFFICULT? 


You want to plug in an attachment to the VZ. Carefully going 
by the book, you switch the Vz off, then as an extra precaution 
you also switch off the power point. 

You insert the attachment and Switch on the VZ. The red light 
flashed on for a momentand then goes out! The VZ is as dead as a 
maggot. You switch it off, take out the attachment and try again. 
dead! After checking the attachment and Pulling 
the VZ to pieces, you discover that you forgot to switch on the 
Power point, and the flash of the red light was caused by the 
charge held in the plugpack. Back to square one. 


Also heard of a member who tapped his T.V. to get a monitor 
input, and then found the attachment he was going to use did'nt 
have a Monitor output! !!! 


GAMES COLUMN 


There is an apology to be made here. To all those who have sent in 
about the Public Domain Tape, I am Sorry about the incredible delay but do 
not. give up hope. You should receive the tape about the same time you are 
reading this, if not before. 


Thanks again to Harry for filling the space I left last issue. His 
advice is being taken here and I advise anyone else with similar expansion 
connection problems to do the same. 


As usual, the VZ Games subject has been pretty quiet as of late. 
Interesting to note is David Wood's game-writing series which should be 
elsewhere in this issue. 


Take note of this! 


Games should be a way of relieving stress and having fun! Who knows your 
taste in games better than yourself? So write a game today, simple or 
brain-wracking, (it doesn't matter) and send it in to VZ Public Domain Tape 
to make your mark in computer games. There will always be someone else who 
will appreciate it. Write in NOW! (please!) 


The game to be playing this issue iS ..... 
THE MAZE OF DEAD 


"A strange force surrounds you and you fall to THE MAZE OF THE DEAD." 
Isn't it always the way! If you haven't heard of this one before it's 
hardly surprising because this one's NEW. Yes finally a new adventure game 
programmed by regular contributer to this column, Michael McDonald. As the 
name suggests, your playing area is a maze of very unfriendly dead people. 
In case you haven't noticed, dead people in computer games usually aren't 
friendly for some reason. Anyway, being à maze game, your object is to 
find your way out. Simple? Think again. 


Some of the features of this interesting program include the idea of 
limited moves and having your inventory list constantly updated for you on 
the screen. The games vocabulary is fairly standard (ie. get, drop, use, 
etc.) so it is easy for anyone, beginners or ‘experts’, to play. It's good 
to see another person along with David Wood taking VZ games further than 
the old Dick Smith selection. 


This great piece of software will become available very soon on the У2 
Public Domain Tape. Watch out for it! 


RATING: 

*Vocabulary: 5 

*Puzzle Difficulty: 6 
*Atmosphere: 8 
*Lastability: 7 
ОЧЕВА: «аео a 6 and a half. 


HOT. HANDY & HELPFUL HINTS 
In order to attract more interest, I'd like to invite everyone to send 
in hints not only for adventures but for any other games as well. eg. 
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action games. 


THE CURSE OF MERKFRUIT LODGE:* That piece of paper is wrinkled! Better 
iron it out. Now where's that power point! 
* Why do the thin walls always get axed?!? 


KNIGHT'S QUEST: (Anyone else finished this one yet?) 
* You know how eating your vegetables make you big and strong? Well 


mushrooms don't abide by this rule. 
QUESTIONS & QUERIES 


PHAROAH'S TOMB:? David Wood needs to know what verb you use to place the 
jewels in the slot. He has already tried put, place, drop and insert but 
none seem to work. Can you help? 

Try PUSH or SHOVE (ed.) 


HIGH SCORES! 
Yes, a change! 


TEN PIN BOWLING 185 DAVID WOOD 


Bernice .0'Mahoney's long standing record gets bowled over. Will she take 
revenge? 


That's about it. Again, I am very sorry about the PD Tape delay. I 
hope the high quality of software makes up for the wait. 


Please send all your hints, questions and answers in to: 
Paul Frantz 
25 Crocker St 
KIRWAN QLD 4817 


See you next Edition! 


The HIGH Scores 


DAWN PATROL 52500 David Wood 
CRASH 410 Harry Huggins 
DIS OUT 24400 Paul Frantz 
HAMBURGER SAM 39500 Stephen Frantz 
LADDER CHALLENGE 22130 Paul Frantz 
KAMIKAZE 6710 Stephen Frantz 
TEN PIN BOWLS 185 David Wood 
VZ INVADERS 13990 Mitch Pendlebury 
GALAXON 150000 Nicole Huggins 
PENGUIN ‚1350 Jason Oakley 
LUNAR LANDER 3600 Jason Oakley 
SUPER SNAKE 811 Tim Oliver 


40 


kxxxx DATABASES XXXXA 


Which is the best?? 
at OL 


115 REM 889880888 SET-UP 88484 


There are anynusber around. They all have their good 115 REM tttittttt SET-UP 1111111010 


points, and shortcomings: 


The best is the one that will do your work, and is 
understood by you. Better still if you can alter it to be 
dedicated to the job in hand. 


Here is that prograa’ 

Except for the sorting routine, which is M/C, (because 
basic is just too slow), it is all in Basic, and can be 
altered to your needs. Any part aay be left out, so you build 
it to suit yourself. 


This is the first of a 2 part series of databases. This 
part will read the disk DIR to datafile, where it can he 
edited, sorted, saved and printed out. 

Part 2 will be a database with keyboard input, giving 
virtually unliaited fields, with all the above facilities. 


The skeleton of both are the same, so those only wanting 
the second part, can type in now the lines froa start to end 
of 300, and the VIEW routine. (700-785) 


10 REN 888 VZDUDATA 348 30-6-90. hy H.M.HUGGINS 

15 CLS:PRINT:PRINT:PRINT:L1ST20-23 

20 LOAD"XB”:ONLY"DE”, "DI” THEN RUN 30 

25 REN IF PROGRAM BROKEN THEN TYPE <(GOTO 200>). DON’T RUN. 


We use Extended Basic to take advantage of some of the 
facilities aade available by Russell Harrison's XB. However 
the original XB by Gerhart Woulf will also work. The 
advantage with the first is that a section can be loaded. 
This saves about 3K bytes. 


30 CLS:60T0120: REM V2DUDATA 

Between here and line 120 is only saving and loading 
routines, that have nothing to do with the progras, until 
there is something in the file to need thes. 
110 CLOSEG$: RETURN 

This is where we initialize the progras. The CLEAR and 
DIN settings have to be adjusted to suit your computer 
вевогу. 

Put in nominal entries as shown. RUN and press (CK >. 
Two nuabers will show. The left is free aeaory. The right is 
space reserved for strings by the CLEAR statement. The length 
of your strings will be about 25. Divide your free aenory by 
25. Dia for 100 less than that and CLEAR for DIM by 25. Now 
RUN and press X again. If you get OUT OF MEMORY reduce the 
CLEAR and try. You have to balance the 2 of thea and have 
ABOUT 1000 in the left figure. For a VZ300 with Lax EXP. you 
can use 750 and 18500. 


120 CLS:CLEAR1000:COLOR4,0 125 DIMP${100) 
130 T=03F=0:C=0:Y=1:A=1:2=1:3DRIVE1 
135 66="NO NANE” 


190 REMILELLEELELINENUE LL LN 

200 POKE30777, 1: CLS: GOSUB1 L0: PRINTR7S, "MENU* 
205 PRINT:PRINT 

D40 PRINI* — Te 5T" DRIVE-"; A 

215 PRINT* V-IEN*;TAB(IS) *W-RITE' 

220 PRINT" F-DELETE INDEX"; TAB(15) "X-MEMORY" 
225 PRINT" L-0AD*; TAB(15) "5-AVE* 

230 PRINT" O-VER-RIDE T*; TAB(IS) "R-READ DIR" 
735 РАТАТ" D-STATUS-DIR*; TAB(1S) "A-ALPH. SORT" 
240 PRINT* P-LPRINT®sTAB(15)°T-SET DRIVE 

245 PRINT* E-DIT" 


The only things to clarify in the Menu is the &OSUB 110 
and the 0-VERRIDE T. 


T is the Top of the File. Sorting is froa 0 TQ T. If you 
don't want to sort the whole file, you alter T ta what you 
want. You say also ADD or Delete i;teas with EDIT. This will 
not increase(( T ))so you have to use O to alter it. Also 
when you have combined several files, and then loaded thes 
the<< T >>has to be set to how many you loaded. 


GOSUB 110 autosatically closes a file you aay have 
forgotten. Such as if you only want a sample of a file. You 
start loading, and when you have a sample you use BREAK to 
stop it. This leaves the file open. You would type GOTO 
200---NOT RUN---, and the GOSUB closes the file for you. Very 
ieportant, else you агу type on for an hour, attempt to SAVE 
and be greeted with DISK BUFFER FULL. If you can reaeaber the 
last file you had open, it's only a aatter of typing («Close 
XXYX:RETURN >>, but which file! 


250 Р0КЕ50777,55 

255 0$=INKEYS: 0$=INKEYS: IFO$=""THEN235 
260 1F0$="A"THENGOSUB1100:* SORT 

265 IFü$z"D'THENSSS:'DIR . | 

270 IFO$="E" THENGOSUB1000: 6070200: EDIT 


2275 IFOS="F°THEN1300: DELETE INDICIES 


280 1F0$="L"THENGS: "LOAD DISK 
285 IFO$="X"THEN6SO:’NEM 


290 IF0$2"O"THENSSO’SET T 


295 IFQ$="P*THENGOO: ’LPRINT 

300 IFQ$="R°THEN400’READ DIR 

305 ІҒ0%-“5"ТНЕК50” 5АУЕ 015К 

310 1F0$="T"THENI3S "SET DRIVE 
315 1FQ$="V"THEN7OOELSE255 :’ VIEW 


317 IFO$="M"THEN200:? MENU 


i 1 320 IFü$z'W'THENTOQELSE255: 6070233: ' WRITE 
e 


ee rep te me en rept re ee men s ее 


% 


530 REM 838038 UTILITIES seesesess 


33% CLS: INPUT"DRIVE 1 OR 2*;A: IFA=1THENS40ELSE345 

340 DRIVE!:6070200 

345 DRIVE2: 6070200 

330 CL5: INPUT*Tz??* ; T: 60T0200 | 

339 CLS:STATUS: | 

3&0 PRINT:PRINT*HIT <D> OR (M> OR <S> OR (L>"s GOTO 255 — 
That, plus the VIEW in lines 700 plus is the skeleton of 

both parts. 


Now we will go onto the specialized routines. 


This section is the heart of this part. It will read the 
DIR of the disk, and put them in DATA in the file. 


It uses the FILE$ command of the extended basic coasands. 
First it displays the DIR on the screen, and asks if you want 
that disk in the file. If you decide YES then you type in the 
disk number, using 3 digets at least. Such as 001 025 100 
200. You may add to that if you want to, as 003-2; 
005-a-ausic etc. and you may copy the STATUS, which is 
displayed. It then goes on to list the dir as it is dataized, 
together with the type and length of file. All this is taken 
into one data line << P$(x) >, 

If you choose not to have that disk in the file, you 
answer N and hit RETURN. You are then asked for the next 
disk. 


If you answer N and N you will be back in the MENU. Press 
V and it goes to the View routine and you are asked for 
start. If you press RETURN you will start from line 0. There 
will be nothing in line 0, but when you press SPACE it will 
scroll through the file. You will see it lists out :- 


1 123 EXT BAS B 123-b 12547. 


| is the file nuaber. 123 is the echa of the first 3 figures 
you put in when reading the DIR. They are used to put the 
disks in nuaerical order, regardless of the arder you put 
thea in. 


Then there is the filenaae and the type. TBWDFSO 
or whatever. D files (DATA) will not have a length shown). 


Then there is the disk nuaber 123-4, Then the length of 
the file. 


At the first viewing, the disks will be in the orderin 
which you presented thea. 


Froa the MENU press A-LPHABETISING. Then VIEN again, Now 
you will find the disks in numerical order, and aoreover the 
contents of each disk in ALPH. order. At this stage I suggest 
you SAVE the file, 


Now froa senu choose F-DELETE. You will be asked left or 
right. Choose L. Answer the start and end, and answer 3 and 


press RETURN. You will be back in MENU. View again and you 


will find those 3 figures before the file nage are gone. bi 
to MENU and press A-LPH. This tiae you when you VIEM you will 
find the whole file in ALPH. order. 


If you do not want the length in the file, use F-DELETE 
again. This tiae choose R answer start and end and answer 5. 
Press RETURN and when you VIEN you will see the right hand 
figers are deleted. 


At any stage you aay save or printout. 


The left hand figures are also used for delete and insert 
of files. To delete go to EDIT and siaply delete all the 
itea. Nase,type and all the figures. Or replace the left 
figures with 999. Then SORT again. 


To insert, pick a number after the end of the 
file.<<T+1>) Go to EDIT and start at that number. Now type in 
the nuaber of the first 3 figures of the disk number you wish 
it to be in, together with all the other inforaation. 
Filenaae type disk no. and length if wanted. Go back to 
MENU,use the 0 comeand and correct T to the new TOP OF FILR. 
You aayinsert as aany as you like one after the other. When 
you sort it will take it’s place as indicated by the left 3 
figures. 


All this ofcourse is done before you delete those left 
figures. That is why I suggested you save beforehand. Then 
you always have the original file to work on. 


400 КЕН ИШИНИ READ DIR ИШИП 

405 CLS: XDIR: STATUS: T=T+! 

413 INPUT*IF WANTED TYPE DISK NUMBER XXX";AS: IFAS=""THEN425 
420 INPUT" COPY STATUS"; B$:C$=LEFT$ (A$, 3) 6070430 

425 PRINT*NEXT DISK?Y/N": INPUTYS: IFY$=""THENAOSELSE 200 


430 Р%(7) =С$+° ЧРИТНИН НЫН Ке... " 
435 NENDISK:Fz0 

440 DS=FILES (F) 

445 FsFtt 

455 IFD$=""THENGOTOSOO 

465 IFD$=° “ТНЕМ449 


470 PRINT TYPES (D$) ; TAB (6) ; D$; 

475. IFTYPES (D$) Z*D'THENABOELSE. PRINTLENGTH (D$) :GOTO485 
480 PRINT*-*:7$z*-----*:TsT*1: 6010490 

485 — T=T+1:7=LENGTHS (DS): V$=" "tSTR$ (2) : I$2RIBHTS (V$, 5) : 
6070490 

490 Р#ИТ)=[$+* *+]$+* *+ТҮрЕ$([}$)+* "Ago" "+l 

495 IFF<120THEN440 

200 PRINT"AGAIN :\N" 

309 KS=INKEY$:KS=INKEYS 

310 IFK$z*: 'THEN405 

315 IFK$="N"THEN200ELSE505 


600 CLS:REMEEEEEEE LPRINT OUTPUT 11411121 

&03 "LPRINTCHR$ (27) ; *M*;: 

&10 INPUT*FROM/TO*; A, B: INPUT"TAB(N) (0-20-40-52MAY) "; N 
615 FORJ=ATOB 
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. IFP$ iJ) z* ^" THENG3OELSEA25 
625 LPRINTTABUND P$ (J) 


630 NEXT 
635 INPUT"AGAIN Y/N"; B$: IFB$z"N*THENZOOELSEA10 


630 REHIEESIS MEMORY 110110010030 
635 CLS:POKE30862, 212: POKE30863, 39 
660 PRINTUSR (X) ;USRUX$) 
665 INPUT*MENU-RETURN": X: 6070200 
700 CLS:REHEEEEEEEEEEE ЛЕН 
710 PRINT&O, "SPACEz*1:€, )2-1: (:)-5TART 
719 PRINT@32,"<; -EDIT 9:A=ADD:E=EDIT 1:M=MENU 
720 INPUT"START VIEW LINE NUMBER": X 
725 PRINT"PRESS SPACE OR FULLSTOP OR COLON . 
735 POKE30777, LE PRINTY; TAB ATP (X) 
140 K$:INKEYS:K$z INKEYS 
ТАЗ TFK$="A"THENGOSUBBIS:PRINT"PRESS SPACE" 
730 IFK$z" *THENIZY*1:6010735 
793 IFK$z*: 'THENCLS: 6070700 
760 1FK9="; *THENH=0:G0SUB1415:CLS:PRINT"PRESS SPACE" 
163 1FK$="E"THENGOSUB1010:PRINT*PRESS SPACE" 
170 1FX$=", “THENX=X-1: IFX<1THENGOSUB 785ELSE735:6070735 
775 IFK$="N"THEN200 
780 6010740 
785 X=1:RETURN 
This next section allow you to add comments to any DATA 
line. Such as DISASS-H T xxx 25643 DISASS shifted to Hi 
Men. In VIEW mode have the data you wish to add to on bottom 
line. Press (<{3)) and follow Prompts. You can go to the next 
item or back to VIEW mode. 


795 ° 888488 ADDITION TO DATA senate 
800 PRINT:PRINT:PRINT"PRESS SPACE FOR NEXT LINE” 
805 PRINT'PRESS COMMA TO RETURN TO VIEW": GOTOR30 
G10 PRINT@384," ";*ADD UP TO 100 CHARACTERS" 

81$ PRINT: PRINTR417, X5 *. ";P$(1) 

820 INPUTDS 

825 PS(X)=P$(X)+" *+0$%:60Т10800 

830 K$=INKEYS:KS=INKEY$ 

835 IFK$z" "THENX=X+1:CLS:GOTO915 

B40 IFK$z*, "THEN: CLS: RETURN 

845 6070830 


1000 REM 11111110 ЕТ ИННИ 

1005 CLS: PRINT: PRINT: INPUT*START АТ?" X 

1010 CLS:PRINT:PRINT 

1015 REM 

1020 PRINT'PRESS SPACE FOR NEXT ITEM 

1025 PRINT*PRESS << . >>(STOP) FOR PREVIOUS" 

1030 PRINT"PRESS << , >> FOR RETURN:PRESS SPACE TO CONTINUE 
1035  PRINT8290,* 


, 

1040 PRINT" , 

1045 PRINT8290," “ІР; . 

1050 PRINT8256, **; "ENTER TEIT*;" pure syst x 


1055 INPUT" *3P$(X) 
1060 KS=INKEY$:K$=INKEY$ 
1065 1FK$=" "THENX=X+1:60701035 


13 


A 2.2, ,,, Ша эз э ыл... 


1070 IFK$-*. "THENI-Y-L: IFICLTHENSOSUB1 OSSELSE1035: GOTO1075 
1075. 1FK$=", "THENCLS: RETURN 
1080 60701050 


1095 X=1:RETURN 


-" e mom os 


1100 REM 8888488 SORTING 11011210101 
1105 DEFINT J-N,U-Y 

1110 CLS:*POKE3O777, 1:РОКЕЗО779, 1:РОКЕЗ0744, 1 

1115 RESTORE 

1120 FÜR 6-0 TO 112 

1125 READ D 

1130 POKE29400+6, D 

1135 NEXT 

1140 1-0 

1145 NET 

1150. J-VARPTR(PS (11) 

1155 POKE29200, PEEK (VARPTR LJ) 

1160 POKE29201, PEEK (VARPTR(J) #1) 

1165 POKE 30842, 214 

1170 POKE 30863, 114 

1175 Y-USR(N) 

1180 6070200 

1185 DATA205, 127, 10, 253,229, 229 

1187 DATA 193, 221,42, 16,114 

1190 DATAL97, 221, 229, 253, 225, 197, 253 

1193 DATA 35, 253, 35, 253, 35 

1195 DATA221, 70,00, 253, 78,00, 221, 110,01 

1197 DATA 221, 102,02, 253, 94,01 

1200 DATA253, 86, 02,26, 190,56, 11 

1203 DATA 32,45, 19, 13 

1205 DATA40, 05, 35, 16, 243,24, 36,221, 70 

1208DATA 00,221, 110,01, 221, 102,02 

1210 DATA253, 78,00, 253, 94,01, 253, 86,02 

1212 DATA 221,113,00, 221, 115,01 

1215 DATAZ21, 114,02, 253, 112,00, 253, 117 

1217 DATA OL, 253, 114,02, 193, 11, 120 

1220 DATAL77, 32,174,193, 221,35, 221, 35 

1222 DATA221, 35, 11,120, 177,32, 157 

1225 DATA253, 225, P01:'PUP IY FD Ei 

1230 PRINT:PRINT 

1290 REM 

1295 REM 133041111 DELETING 111120 

1300 PRINT:PRINT 

1305 INPUT*LEFTS( OR RIGHTS (5 L/R*;H$: IFH$z"L"THENLSI0ELSE1320 
1310 INPUT"START";N: INPUT"END"; M: INPUT*CHARS DELETED"¿L 
1315 FORX=NTOM:P$ (X)=RIGHTS (P$( } LENCP$(X})-L):NEXT:6010200 
1320. INPUT"START*;N: INPUT"END*;M: INPUT"CHARS DELETED"; L 
1325 FORX=NTOM: PS (X)=LEFTS (P$(X) , LENCP (1 ) -L) S NETT: GOTO200 


1400 REM 11011 EDIT GROUPS t1ttitit 

1405 PRINT@O, "SPACE=NEXT FILE: FULLSTOP=PREVIOUS FILE 
1410 PRINT"CONZA FÜR RETURN TO VIEW": GOTOL425 

1415 CLS:PRINTO128,*";: FORH=XTOX+8:PRINTH;" *sPS(H) NEXT 
1420 PRINTO128,"";: FORH=XTOX+8: INPUT" *3P$ (0 : NETT: GOTOLA405 
1425 KS=INKEY$:KS=INKEY$ 

1430 IFK$=" "THENX=X+9: 60701415 

1435 IFKS=", "THENCLS: RETURN 

1440 LFK$=". "THENX=X-9: IFXX1THENGOTO14S0ELSE1415: 60701415 
1445 60701425 

1450 X=1:60701415 


Now we will deal with the SAVE and LOAD routines. Using 

Ext Bas. we don't need a routine to change a filename. Jt 
accepts ((*'*6$)) and INPUT coamands aakes 6$ equal the 
filenase y^u type in. First it displays the disk DIR and 
STATUS, and print LOADING or SAVING, and prints T=xxx . Then 
asks far name, and from/to. If you are saving the whole file, 
froa 1 to T and press RETURN for both these.C will then be 1 
and P will be T. If you want otherwise then put your Figures 
in. As 45/278 etc. 

When LOADING if you have only saved the one file from I 
to T, you can just press RETURN as before, If you have 
(({banked >>> files then load froa 1 to (whatever DIM is.). 
It will load the file and BREAK showing OUT OF DATA. Just 
type 6070 200. Then VIEW and find what the last DATA nuaber 
is. Then use the ((0)) command and set T to that figure. 


If after coming here you change your eind then hit RETURN 
and you are back in MENU. As it loads or saves it will print 
a running string of numbers. These are the file numbers being 
acted on. If yau want to stop at any place just use 
CTRL+BREAK. It will stop and show READY with a flashing 
CURSOR. Now type <<<G0TO 200 >>>. NEVER repeat NEVER use RUN. 
If you, do you will loose the file. Why? Because it goes to 
the CLEAR COMMAND and does as is’ told. Ta clear 18000 or 
whatever. | 


Lines 10 TO 20 offers a safeguard to doing that 
accidentally,- as it will list line 20. This always applies. 
If the READY shows then 6070200. If you want to clear the 
file for the next one then <<RUN 30>). 


If you have a file too long to handle in one sitting, 
then you can SAVE it. When you came back to continue you can 
then save the second part with the same filename, and it will 
be added onto the first one. 
AS REM 13111011 SAVING 11112101110 
30 CLS: PRINT: STATUS: XDIR: 

"T: PRINT8420* SAVING" 
JJ INPUT*NAME';6$: INPUT"FROM/TO";C,P: IFC=OTHENC=1:P=T 
80 QPEN'"tG$, L: PRI" * 16$ 


PRINT@405, "T= 


63 FOR. [=CtoP:PR#°"+6$,P$(I): PRINT 8 
440, I:NEXT: CLOSE" " £6$:G0T0200 

80 REN 2334328 LOADING НИНИ 

85 CLS: XDIR: PRINT@420, "LOADING": INPUT"NANE" ;6$: 


IF6$=""THEN135 
90 OPEN""+6$,0: INPUT"FROM/TO";C,P: IFC-OTHENTSELSE100 
99 ІМЕ"*+6$,Р:С=1 

100 FORI=CTOP: IN@""+6$,P$(1): PRINT@440,I: NEXT:T=P 
105 CLOSE""+6$:6070200 


PRINTER / JOYSTICK CONNECTIONS LOOSE? 


Here is 
needed. 


an idea to cure that trouble, 


and one that is very much 


It is sent in by Ian Niedzwiecki, who in the past has sent in many 


articles. Thanks Ian. 


I must point 
article. 


out that it 


is an IDEA and not a construction 


If you are swaping the printer and Joysticks often, you soon find 
you have trouble with the connections being loose. 


This 


idea leaves both the printer and Joysticks always connected. 


No change over. But don't try to use them both at same time. 


The only comment I have is, if you disconnect the Joysticks, then 


have 


something fashioned out of a cassette Case. 
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some form of cover over the pins to prevent shorts. Perhaps 


(ed). 


NOT To ScALe 
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To Joystick UF. 


AT To PRINTER 


To Joysnek LE 
> 





=> 
| р? To P 
To vz. REASSEMBLGD Hole SLIGHTLY RINTER 


PRINTER IF eee 72 АссеРТ 
-W CABLE 


Í. OPEN UP РамтЕр INTERFACE Unir —. YZ END, 


2, SOLDER A LENGT or RıBBon cABLE (ABour 9") TO WHERE THE 
SOCKET Pins | LEGS Come THROUGH Tur РСВ. 


3. ON THE OTHER END OF THE CABLE SOLDER A PIECE ор PCB 
WITH GOLD FINGERS ON rr, This END PLUGS INTO THE 
JOYSTicK Т, Ё, 


Æ. STRAIGHTEN OUT NEW’ CABLE ANO AFTER SLIGHTLY ENLARGING. 
‘Hoke! 1 THE INTERFACE COVER = REASSEMB LE, 


125 


acca We мн наь омадан арыйыы дй ЙЫШ. re Sieben азо ава Абд. ee ee ee ta nie Ahr s о о даь ride tal A йш ee ne 
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Ж” 


51. 4D) :SET (32, 42) :5ET (33,42) 


51 THENGOTO1 9530 ( 


) ¿SET (31,34): SET (32,34) :5ET (33,34) 


690 5! 

7,42) 

700 6 

2,58) 

7105 LINES MISSED IN AROUND 

7,33) C о AROUND THE WORLD 

720 $ 

1,52) 410 SET(B-4,61):SET(B-4,60) :SET(B-4,59):SET(B-4,58) :SET(B-4,57) ( 
595 680 SET 3,40) :SET (32,41) :SETG 

631) 990 A=At1: SET (A, 4) :SET (A, 5) : IFA =4STHENGOTO 1010 ( 
"e M o nO 

$27) — 1910 A-A«1:B-B-1:8ET (A, S1) :SET (B, 81) : IFA- 

7505 2460 SET(33,33) :SET (34,33 


760 Sci SYS g n/d n SEE Тын: амы. 
4,27) : SET(43,27) * 
770 SET (42, 27) :SET (45, 200 : SET (46, 25) : SET (4 
7,24) 3 SET (48, 25) 
780 SET (49,22): SET (50,21) : SET(51, 20) : SET (5 
2,19) :SET(51,18) 
790 SET(53,18):SET (54,18) :SET (55,18) 2SET (5 
6,18) : SET (57,18) 
800 SET (52, 18) : SET (58, 19) : SET (57, 20) : SET (S 
6,219: SET (55, 22) 
810 SET (54,23) :SET (53, 24): SET(52, 2078 SET (S 
1,26) :SET (50, 27) 
820 SET(28,29) :SET(32, 29) : SET (56, 29) z SET (4 
0,29) : SET (44, 29) 
850 SET (48,29) : SET (52, 29) zSET (54, 29) : 
831 AS=INKEY$: AS=INKEYS 
832 IFA$="A" THENGOTO2910 
823 IFA$="V" THENGOTO8S0 
34 IFA$="I"THENGOTO1470 
840 IFA$="B" THENGOTO1700 
841 IFA$="C"THENGOTO2140 
842 IFA$="F"THENGOTO1300 
843 IFA$z"G"THENGOTO1110 
844 IFA$="T" THENGOTO2600 
847 IFA$="F"THENGOTO270 
848 GOTOS31 » 
850 MODE (1) 
840 A=0 
870 A=:A+1:SET (A, 6%) s IFA=127 THENGOTO870 
880 65070870 
890 A=63 
900 A=A-1:SET (20, A) sSET (100, A): IFA=30THENG 
ОТО 920 
910 6070900 
920 A=20: B=30:C=100: D=30 
930 A=A+2:B=B-1: C=C-2: SET (A, B) s SET (C, B) s IF 
A=40THENGOTO 950 
940 GOTO 930 
950 A=10 
960 A=A-1:SET(59, A) SET (60, A) 2SET (61, A) 3 IF 
A=OTHENGOTO980 
970 6070960 
980 8:54 
990 A-A*1:SET(A,4) : SET(A, 5) : IFA- 6S5THENGOTO 
1010 


YUM tw > з 


aw ve de т + -.. 


1090 FORI=1T04000: NEXT 

1100 GOSUBSSO 

1110 COLOR4:MODE (1): A=-1 

1120 A=A+1:SET(45,A):SET(46,4):SET(65,A):5 
ET(66, A) 

1120 IFA=49THENGOTO1150 

1140 60701120 

1150 A=46 

1170 A-A*1:SET(A, 2) : SET (A, 5) E SET(A, 132 : SET 
(5,12) 

1180 SET (A, 24) :SET (A, 23) : SET (A, 39) s SET (A, 4 
0): IFA=65THENGOTO1200 

1190 GOTO 1170 

1200 A=0:B=63:C=0 

1210 C=C+1:A=A+3: B=B-1: SET (A+1,B):SET(A, E) 
: IFC-18THENGOTO1220 

1215 GOTO 1210 

1220 A=109:B=63:0=0 

1230 С=С+1:А=А-5:В=В-1:5ЕТ (А,В): 5ЕТ (А-1,В) 
: IFC=18THENGOTO1250 

1240 60701250 
1250 COLOR2:A=45 
1260 А=4+1: В=В+1 
3THENGOTO 1280 
1270 GOTO 1240 
1280 IFUR-STHENSQUNDZ1, 1: COFY 

1281 FORI=1T04000:NEXTI 

1290 GOSUB 550 

1300 MODE (1): COLOR2:A=0 

1510 A-A*1:SET(A, 6S)  IFA-127THENGOTO 1330 
1520 6070 1510 

1330 A=-0:B=64 

1340 A=A+1:B=B~-1:SET (A,B): IFA=43THENGOTO 1 
360 

1350 GOTO 1340 

1360 A=128:B=64 

1370 A=4-1:B=B-1:SET(A, B): IFA=64 THENGOTO13 
90 

1380 GOTO 1370 

1390 A=63 

1400 A=A-1:SET(57,A):SET(70, A): IFA=SOTHENG 
0701420 

1410 GOTO 1400 


e samo е am m et em ee ye nm oor а 


© B=45: C=0 
: ЅЕТ (54, А) : ЗЕТ (55, В) : ІРА=6 


1420 А-56 


TRADING FOST 


FOR SALE 


Word proc. cartridge, DATA CASSETTE RECORDER (DR20) 
JOYSTICKS, PRINTER INTERFACE. 
Reasonable offer. 
John Luxton, 
P.O. Box 99. Biggendin. 0714. 4821. 
Ph. 071-27-1515. 


I have the residue of DSE VZ defunct computers for sale. 
They have various unspecified faults, but are mostly 
complete. The price is $20 ea. (Fd). 


OTHER V Z USER GROUPS 


H.V.V.Z.U.G DISKMAG 

P.0.Box 161 P.O.Box 400. 

JESMOND NSW. 2299. Taree NSW. 2430. 
CENT.VIC.COMP.Club BRISBANE VZUG 

24 Breen St. 63 Tingalpa St. 
BENDIGO VIC 3550 WYNUM West. Q'ld. 4178 


Graeme Bywater 
P.O.Box 388 
Morley Н.А. 5062 


How to write adventure programs, 


David has advised that pressure of school work has delayed his 
articles. 


I trust this is only a temporary hold-up, and that we will get 
them later. 


I would ask that those that were asked to Give him feeddback will 
be patient. (Ed). 


WANTED WANTED WANTED 


A member wishes to use WOULF’S EXBASIC in conjunction with the VZ 
Sprite generator. 

He wants to use the PLOT command, but when he tries the computer 
resets. 

Who will be the first to tell us HOW ? (Ed). 


~ 


MACHINE LANGUAGE ROUTINES. 


BY DON DOWER. 


ONE OF THE MOST PRACTICAL APPLICATIONS OF ASSEMBLY-LANGUAGE PROGRAMMING IS 
TO CARRY OUT SOME OF THE OPERATIONS OF A BASIC PROGRAM. 

THE PROCEDURE FOR CALLING A USR SUBROUTINE IS VERY SIMPLE. ALL YOU HAVE 
TO pO IS TO PUT THE ADDRESS OF THE LOCATION YOU WANT TO CALL INTO LOCATIONS 
30862 & 30863.SUPPOSE THAT THE ENTRY ADDRESS IS 7DOO(hex).THE FIRST BYTE IS 
7D AND THE SECOND OOH.7DH IS 125 AND OOH IS О. YOU MUST THEREFORE POKE 0 
INTO 30862 AND 125 INTO 30863. THEN THE EXECUTION OF A "x=USR(N)" STATEMENT 
WILL CAUSE A CALL TO LOCATION 7DOOH TO BE EXECUTED> 
IF YOU WANT THE USR SUBROUTINE TO OPERATE UPON VARIABLES USED BY THE BASIC 
PROGRAM<YOU NEED TO TELL IT WHERE THOSE VARIABLES ARE LOCATE.THIS IS THE 
PURPOSE OF THE VARFTR STATEMEMT.VARPTR(X)RETURNS THE ADDRESS OF THE FIRST 
BYTE OF THE VARIABLE X. INTEGER VARIABLES REGUIRE 2 BYTES,SINGLE PRECISION 
VARIABLES  4,DOUBLE PRECISION 8,AND STRINGS 3 PLUS THE LENGTH OF THE STRING 
(O TO 255 BYTES).PEEK(VARPTR(X))GETS THE ACTUAL VALUE ITSELF,BUT AN 
ASSEMBLY-LANGUAGE SUBROUTINE WILL USUALLY WANT THE ADDRESS RATHER THAN THE 
DATA. 

THE ONLY PROBLEM WITH PASSING A VARPTR ARGUMENT TO A USR SUBROUTINE COMES 
WHEN YOU NEED TO PASS MORE THAN ONE OF THEM,SO THAT YOU MUST USE THE 
"POKE"METHOD MENTIONED ABOVE. IN THIS SITUATION YOU HAV TO BREAK DOWN THE 
VARPTR ADDRESS INTO TWO BYTES AND POKE THEM INTO THE RESPECTIVE 
LOCATIONS.HERE WE CAN USE AN EXTRA INTEGER VARIABLE TO SIMPLIFY THE 
PROCESS.IN THE FOLLOWING EXAMPLE,SUPPOSE THAT YOU WANT TO PASS THE ADDRESS 
OF THE VARIABLE X TO A USR SUBROUTINE BY POKEING IT INTO LOCATIONS 350862 & 
30863. YOU CAN USE AN EXTRA VARIABLE FOR THIS PURPOSE. 

10 DEF INT Y 20 (A YzVARPTR CX) " 30 РОКЕ 
30862, PEEK (VARPTR CY) ) 40 FOKE 30863, PEEK (VARPTR(Y) +1) 
PEEK C/ARPTR CY) ) CONTAINS THE FIRST BYTE OF THE ADDRESS ОҒ X,„AND 
PEEK(VARPTR(Y)+1) THE SECOND BYTE.Y MUST BE DEFINED AS A INTEGER,BUT X MAY 
BE ANY TYFE OF VARIABLE. 

IF THE VARIABLE WHOSE ADDRESS YOU WANT TO PASS TO THE ASSEMBLY-LANGUAGE 
PROGRAM IS SUBSCRIPTED, YOU NEED ONLY PASS THE ABDRESS OF THE FIRST LOCATION 
USED (USUALLY SUBSCRIPT О OR 1).YOU CAN THEN RELY ON THE FACT THAT IF AO) 
IS STORED IN ONE SERIES OF BYTES,A(1) WILL BE IN THE NEXT,A(2) WILL FOLLOW 
A(1).,ETC. THE AMOUNT YOU HAVE TO INCREMENT THE ADDRESS DEPENDS UPON THE TYFE 
OF VARIABLE.FOR INTEGERS, SINGLE AND DOUBLE PRECISION NUMBERS, THIS AMOUNT 15 
2,4 AND 8 BYTES RESPECTIVELY. THE DATA ITSELF IS STORED IN THESE CONTIGUOUS 
LOCATIONS.FOR STRINGS, THE AMOUNT IS 3 BYTES.THE IMFORMATION STORED THERE IS 
THE LENGTH OF THE STRING IN THE FIRST BYTE,AND THE ADDRESS IN THE FOLLOWING 
TWO BYTES. THE DATA ITSELF IS STORED ELSEWHERE, IN THE STRING SPACE AREA. 

IF YOU WANT TO PICK UF THE ARGUMENT WHEN ENTERING THE ASSEMBLY-LANGUAGE 
SUBROUTINE, YOU MUST FIRST CALL OA7FH.TO PASS THE ARGUMENT BACK TO THE BASIC 
PROGRAM, YOU MUST TERMINATE THE FROGRAM WITH A JUMP TO LOCATION OAQAH.IF YOU 
DON'T WANT TO RETURN AN ARGUMENT, YOU SIMPLY RET (RETURN) AT THE END OF YOUR 
SUBROUTINE. 


THE FOLLOWING BASIC PROGRAM BUILDS RANDOM STRINGS FROM 9 TO 21 CHARACTERS 
& THEN ALPHABETIZES THEM. FOR THIS PROGRAM TO WORK YOU MUST FIRST LOAD ANY 
EXTENDED BASIC PROGRAM THAT CONTAINS THE  "DEFINT","DEFSTR", % VARPTR 
COMMANDS. 
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REM XXLOAD XB FIRSTX*X 


же” 


a3 DATA221,110,01: "LD L(IX+1) 


CLEAR 420 44 DATA221,102,02: "LD H(IX+2 
DEFINT B-Z 45 DATA253,94,01:”LD E(1Y+1) 
X=0 46 DATA253,86,02:'LD D(IY+2) 
CLS: POKE30777, 1: POKE30779, 1: POKE30744, 1 47 DATA26:”"LD A(DE) 

N=10 ^ 48 DATA190: ' CP (HL) 

DIM A$(N) 49 DATAS6,11:” JR C,OB 

FOR G=0 TO 112 50 DATA32, 45: JR NZ, 2D 

READ D | 51 DATA19:” INC DE 
POKE29400+G,D 52 DATA13:'DEC C 

NEXT 53 DATA40,05: "JR 2,05 
FORI=O0TON:A$(1)="" 54 DATA35:” INC HL | 

J=RND (12) +9: FORK=1TOJ SS DATA14,243:’DI NZ,FS 
A$(I)=A$ (I) +CHR$ (RND (26) +64) có DATA24,36:'JR 24 

NEXT K 57 DATA221,70,00:'LD B(IX*O) 
PRINT I;A$(1) sg DATA221,110,01:”LD L(1X+1) 
NEXT I 59 DATA221,102,02:”"LD H(1X+2) 
P=VARPTR (AS (0?) 60 DATAZSS,789,00:’LD CCIX+2) 
PRINT VARPTR (A$(O)) 51 DATA253,94,01:"LD E(CIY*1) 
POKE29200, PEEK (VARPTR CP) ) 52 DATA253,86,02:'LD D(IY*Z) 
POKE29201, PEEK (VARPTR(P) +1) 63 DATAZZ1,113,00:7LD (1Х+0),С 
POKE 50862, 216 64 DATA221,115,01:”LD (IX+1),E 
POKE 50865, 114 45 DATA221,114,02:"LD (IX+2),D 
REM 728DH 64 DATA253,112,00:'LD (IY*0),.B 
X=USR (N) 57 DATA253,117,01:"LD (IY*1),L 
FOR I=0 TO N:FRINTI;A$(I) ов DATA253,116,02:'LD (IY*2),H 
NEXT I 69 DATA193:'POP BC 
DATA205,1?7, 10: ’CALL OA7F 70 DATA11:”DEC BC 

DATA 253,229 :’PUSH IY 71 DATA120:’LD A,B 

DATA229:” PUSH HL 72 DATA177:2:2” ок С 

DATA193:'POP BC 73 DATA32,174:” JR NZ,AE 
DATA221,42,16,114:"LD IX(7210) 74 DATA193:*POP BC 
рата197: ° РОЅН ВС 75 DATA221,35:" INC IX 
рата221, 229: ° РИЅН ІХ 76 DATA221,55: "INC IA 
DATA253,225:'PUP IY 77 DATA221,35:" INC IX 
DATA197:7 PUSH BC 78 DATA11:”DEC BC 
DATA253,35:” INC ІҮ 79 DATA120:”LD A,B 
DATA253,35:* INC IY 80 DATA177:'0R C 
DATA255,35:* INC IY 81 DATA32,157:^ JR NZ,9D 
DATA221,70,00:”"LD B(1X+0) 82 DATA253,225: "POP IY 
DATA253,78,00:”"LD CtIY+O) 83 


DATA201: "RET 


Editor's Comment. 


This is the sorting routine I refered to in the article on 
DATABASES. You will find it starting at line 1100. 
6%%6%%%%%% %%%%%%%%%% %%%%%%%%%% 


I have received from Bob Kitch, his list of all the articles that 
have been published refering to the VZ200-300. 

Members may borrow this list, on the same conditions as tapes and 
back issues. 18 | 


